An Invitation to the Roland World of Music

home *** CD-ROM | disk | FTP | other *** search

/ An Invitation to the Roland World of Music / Roland - An Invitation To The Roland World Of Music.bin / vb / cooltool / midimixr / midimixr.frm next >

Wrap

Text File | 1995-04-20 | 82KB | 2,353 lines

VERSION 2.00 Begin Form FormMidiMixr BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "MIDI CoolTools - MIDI Mixer Example" ClientHeight = 6540 ClientLeft = 30 ClientTop = 630 ClientWidth = 9510 Height = 7230 Icon = MIDIMIXR.FRX:0000 Left = -30 LinkTopic = "Form1" ScaleHeight = 6540 ScaleWidth = 9510 Top = 0 Width = 9630 Begin Frame Frame2 BackColor = &H00C0C0C0& Caption = "[MIDI Out] Channel Volume" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1965 Left = -15 TabIndex = 18 Top = 3240 Width = 9705 Begin CommandButton CmdChannelOnOff BackColor = &H00C0C0C0& Caption = "On" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 15 Left = 9150 TabIndex = 34 Top = 1640 Width = 435 End Begin CommandButton CmdChannelOnOff BackColor = &H00C0C0C0& Caption = "On" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 14 Left = 8520 TabIndex = 33 Top = 1640 Width = 435 End Begin CommandButton CmdChannelOnOff BackColor = &H00C0C0C0& Caption = "On" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 13 Left = 7920 TabIndex = 32 Top = 1640 Width = 435 End Begin CommandButton CmdChannelOnOff BackColor = &H00C0C0C0& Caption = "On" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 12 Left = 7320 TabIndex = 31 Top = 1640 Width = 435 End Begin CommandButton CmdChannelOnOff BackColor = &H00C0C0C0& Caption = "On" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 11 Left = 6690 TabIndex = 30 Top = 1640 Width = 435 End Begin CommandButton CmdChannelOnOff BackColor = &H00C0C0C0& Caption = "On" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 10 Left = 6090 TabIndex = 29 Top = 1640 Width = 435 End Begin CommandButton CmdChannelOnOff BackColor = &H00C0C0C0& Caption = "On" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 9 Left = 5490 TabIndex = 28 Top = 1640 Width = 435 End Begin CommandButton CmdChannelOnOff BackColor = &H00C0C0C0& Caption = "On" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 8 Left = 4890 TabIndex = 27 Top = 1640 Width = 435 End Begin CommandButton CmdChannelOnOff BackColor = &H00C0C0C0& Caption = "On" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 7 Left = 4290 TabIndex = 26 Top = 1640 Width = 435 End Begin CommandButton CmdChannelOnOff BackColor = &H00C0C0C0& Caption = "On" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 6 Left = 3690 TabIndex = 25 Top = 1640 Width = 435 End Begin CommandButton CmdChannelOnOff BackColor = &H00C0C0C0& Caption = "On" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 5 Left = 3090 TabIndex = 24 Top = 1640 Width = 435 End Begin CommandButton CmdChannelOnOff BackColor = &H00C0C0C0& Caption = "On" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 4 Left = 2490 TabIndex = 23 Top = 1640 Width = 435 End Begin CommandButton CmdChannelOnOff BackColor = &H00C0C0C0& Caption = "On" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 3 Left = 1890 TabIndex = 22 Top = 1640 Width = 435 End Begin CommandButton CmdChannelOnOff BackColor = &H00C0C0C0& Caption = "On" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 2 Left = 1290 TabIndex = 21 Top = 1640 Width = 435 End Begin CommandButton CmdChannelOnOff BackColor = &H00C0C0C0& Caption = "On" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 1 Left = 690 TabIndex = 20 Top = 1640 Width = 435 End Begin CommandButton CmdChannelOnOff BackColor = &H00C0C0C0& Caption = "On" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 0 Left = 90 TabIndex = 19 Top = 1640 Width = 435 End Begin VSlider VSliderVolume BackColor = &H00C0C0C0& BevelInner = 0 'None BevelOuter = 3 'Lowered BevelWidth = 1 BorderWidth = 1 Gap = 3 Height = 1245 Index = 15 LargeChange = 10 Left = 9150 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThumbHeight = 425 ThumbStyle = 3 'Lined ThumbWidth = 295 TickColor = &H00000000& TickCount = 5 TickLength = 4 TickMarks = 3 'Both TickWidth = 1 Top = 330 TrackBevel = 3 'Lowered TrackWidth = 2 Value = 127 Width = 435 End Begin VSlider VSliderVolume BackColor = &H00C0C0C0& BevelInner = 0 'None BevelOuter = 3 'Lowered BevelWidth = 1 BorderWidth = 1 Gap = 3 Height = 1245 Index = 14 LargeChange = 10 Left = 8520 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThumbHeight = 425 ThumbStyle = 3 'Lined ThumbWidth = 295 TickColor = &H00000000& TickCount = 5 TickLength = 4 TickMarks = 3 'Both TickWidth = 1 Top = 330 TrackBevel = 3 'Lowered TrackWidth = 2 Value = 127 Width = 435 End Begin VSlider VSliderVolume BackColor = &H00C0C0C0& BevelInner = 0 'None BevelOuter = 3 'Lowered BevelWidth = 1 BorderWidth = 1 Gap = 3 Height = 1245 Index = 13 LargeChange = 10 Left = 7920 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThumbHeight = 425 ThumbStyle = 3 'Lined ThumbWidth = 295 TickColor = &H00000000& TickCount = 5 TickLength = 4 TickMarks = 3 'Both TickWidth = 1 Top = 330 TrackBevel = 3 'Lowered TrackWidth = 2 Value = 127 Width = 435 End Begin VSlider VSliderVolume BackColor = &H00C0C0C0& BevelInner = 0 'None BevelOuter = 3 'Lowered BevelWidth = 1 BorderWidth = 1 Gap = 3 Height = 1245 Index = 12 LargeChange = 10 Left = 7320 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThumbHeight = 425 ThumbStyle = 3 'Lined ThumbWidth = 295 TickColor = &H00000000& TickCount = 5 TickLength = 4 TickMarks = 3 'Both TickWidth = 1 Top = 330 TrackBevel = 3 'Lowered TrackWidth = 2 Value = 127 Width = 435 End Begin VSlider VSliderVolume BackColor = &H00C0C0C0& BevelInner = 0 'None BevelOuter = 3 'Lowered BevelWidth = 1 BorderWidth = 1 Gap = 3 Height = 1245 Index = 11 LargeChange = 10 Left = 6720 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThumbHeight = 425 ThumbStyle = 3 'Lined ThumbWidth = 295 TickColor = &H00000000& TickCount = 5 TickLength = 4 TickMarks = 3 'Both TickWidth = 1 Top = 330 TrackBevel = 3 'Lowered TrackWidth = 2 Value = 127 Width = 435 End Begin VSlider VSliderVolume BackColor = &H00C0C0C0& BevelInner = 0 'None BevelOuter = 3 'Lowered BevelWidth = 1 BorderWidth = 1 Gap = 3 Height = 1245 Index = 10 LargeChange = 10 Left = 6090 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThumbHeight = 425 ThumbStyle = 3 'Lined ThumbWidth = 295 TickColor = &H00000000& TickCount = 5 TickLength = 4 TickMarks = 3 'Both TickWidth = 1 Top = 330 TrackBevel = 3 'Lowered TrackWidth = 2 Value = 127 Width = 435 End Begin VSlider VSliderVolume BackColor = &H00C0C0C0& BevelInner = 0 'None BevelOuter = 3 'Lowered BevelWidth = 1 BorderWidth = 1 Gap = 3 Height = 1245 Index = 9 LargeChange = 10 Left = 5490 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThumbHeight = 425 ThumbStyle = 3 'Lined ThumbWidth = 295 TickColor = &H00000000& TickCount = 5 TickLength = 4 TickMarks = 3 'Both TickWidth = 1 Top = 330 TrackBevel = 3 'Lowered TrackWidth = 2 Value = 127 Width = 435 End Begin VSlider VSliderVolume BackColor = &H00C0C0C0& BevelInner = 0 'None BevelOuter = 3 'Lowered BevelWidth = 1 BorderWidth = 1 Gap = 3 Height = 1245 Index = 8 LargeChange = 10 Left = 4890 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThumbHeight = 425 ThumbStyle = 3 'Lined ThumbWidth = 295 TickColor = &H00000000& TickCount = 5 TickLength = 4 TickMarks = 3 'Both TickWidth = 1 Top = 330 TrackBevel = 3 'Lowered TrackWidth = 2 Value = 127 Width = 435 End Begin VSlider VSliderVolume BackColor = &H00C0C0C0& BevelInner = 0 'None BevelOuter = 3 'Lowered BevelWidth = 1 BorderWidth = 1 Gap = 3 Height = 1245 Index = 7 LargeChange = 10 Left = 4290 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThumbHeight = 425 ThumbStyle = 3 'Lined ThumbWidth = 295 TickColor = &H00000000& TickCount = 5 TickLength = 4 TickMarks = 3 'Both TickWidth = 1 Top = 330 TrackBevel = 3 'Lowered TrackWidth = 2 Value = 127 Width = 435 End Begin VSlider VSliderVolume BackColor = &H00C0C0C0& BevelInner = 0 'None BevelOuter = 3 'Lowered BevelWidth = 1 BorderWidth = 1 Gap = 3 Height = 1245 Index = 6 LargeChange = 10 Left = 3690 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThumbHeight = 425 ThumbStyle = 3 'Lined ThumbWidth = 295 TickColor = &H00000000& TickCount = 5 TickLength = 4 TickMarks = 3 'Both TickWidth = 1 Top = 330 TrackBevel = 3 'Lowered TrackWidth = 2 Value = 127 Width = 435 End Begin VSlider VSliderVolume BackColor = &H00C0C0C0& BevelInner = 0 'None BevelOuter = 3 'Lowered BevelWidth = 1 BorderWidth = 1 Gap = 3 Height = 1245 Index = 5 LargeChange = 10 Left = 3090 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThumbHeight = 425 ThumbStyle = 3 'Lined ThumbWidth = 295 TickColor = &H00000000& TickCount = 5 TickLength = 4 TickMarks = 3 'Both TickWidth = 1 Top = 330 TrackBevel = 3 'Lowered TrackWidth = 2 Value = 127 Width = 435 End Begin VSlider VSliderVolume BackColor = &H00C0C0C0& BevelInner = 0 'None BevelOuter = 3 'Lowered BevelWidth = 1 BorderWidth = 1 Gap = 3 Height = 1245 Index = 4 LargeChange = 10 Left = 2490 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThumbHeight = 425 ThumbStyle = 3 'Lined ThumbWidth = 295 TickColor = &H00000000& TickCount = 5 TickLength = 4 TickMarks = 3 'Both TickWidth = 1 Top = 330 TrackBevel = 3 'Lowered TrackWidth = 2 Value = 127 Width = 435 End Begin VSlider VSliderVolume BackColor = &H00C0C0C0& BevelInner = 0 'None BevelOuter = 3 'Lowered BevelWidth = 1 BorderWidth = 1 Gap = 3 Height = 1245 Index = 3 LargeChange = 10 Left = 1890 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThumbHeight = 425 ThumbStyle = 3 'Lined ThumbWidth = 295 TickColor = &H00000000& TickCount = 5 TickLength = 4 TickMarks = 3 'Both TickWidth = 1 Top = 330 TrackBevel = 3 'Lowered TrackWidth = 2 Value = 127 Width = 435 End Begin VSlider VSliderVolume BackColor = &H00C0C0C0& BevelInner = 0 'None BevelOuter = 3 'Lowered BevelWidth = 1 BorderWidth = 1 Gap = 3 Height = 1245 Index = 2 LargeChange = 10 Left = 1290 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThumbHeight = 425 ThumbStyle = 3 'Lined ThumbWidth = 295 TickColor = &H00000000& TickCount = 5 TickLength = 4 TickMarks = 3 'Both TickWidth = 1 Top = 330 TrackBevel = 3 'Lowered TrackWidth = 2 Value = 127 Width = 435 End Begin VSlider VSliderVolume BackColor = &H00C0C0C0& BevelInner = 0 'None BevelOuter = 3 'Lowered BevelWidth = 1 BorderWidth = 1 Gap = 3 Height = 1245 Index = 1 LargeChange = 10 Left = 690 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThumbHeight = 425 ThumbStyle = 3 'Lined ThumbWidth = 295 TickColor = &H00000000& TickCount = 5 TickLength = 4 TickMarks = 3 'Both TickWidth = 1 Top = 330 TrackBevel = 3 'Lowered TrackWidth = 2 Value = 127 Width = 435 End Begin VSlider VSliderVolume BackColor = &H00C0C0C0& BevelInner = 0 'None BevelOuter = 3 'Lowered BevelWidth = 1 BorderWidth = 1 Gap = 3 Height = 1245 Index = 0 LargeChange = 10 Left = 90 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThumbHeight = 425 ThumbStyle = 3 'Lined ThumbWidth = 295 TickColor = &H00000000& TickCount = 5 TickLength = 4 TickMarks = 3 'Both TickWidth = 1 Top = 330 TrackBevel = 3 'Lowered TrackWidth = 2 Value = 127 Width = 435 End End Begin Frame Frame4 BackColor = &H00C0C0C0& Caption = "Master Volume (Driver)" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1420 Left = 7680 TabIndex = 36 Top = 5160 Width = 1845 Begin Knob Knob1 BackColor = &H00C0C0C0& BevelWidth = 2 BorderWidth = 4 FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1155 Indicator = 0 'Spot IndicatorColor = &H000000FF& IndicatorWidth = 0 KnobColor = &H00C0C0C0& KnobStyle = 3 'Textured Left = 120 LinkControl = "" LinkProperty = "" Max = 32767 Min = 0 Radius = 200 TickCaptionColor= &H00000000& TickCaptions = MIDIMIXR.FRX:0302 TickColor = &H00000000& TickCount = 10 TickGap = 2 TickLength = 8 TickWidth = 1 Top = 240 Value = 0 Width = 1545 End End Begin MIDIOutput MIDIOutput1 DeviceID = 0 Left = 6540 Top = 5430 VolumeLeft = 0 VolumeRight = 0 End Begin MIDIInput MIDIInput1 DeviceID = 0 Left = 6780 MaxSysexSize = 0 MessageEventEnable= 0 'False Top = 5220 End Begin Frame Frame3 BackColor = &H00C0C0C0& Caption = "[MIDI Out] Left/Right Panning" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1575 Left = -15 TabIndex = 35 Top = 1560 Width = 9705 Begin OptionButton OptionMidiController BackColor = &H00C0C0C0& Caption = "SC Chorus Control" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 2 Left = 3000 TabIndex = 39 Top = 1200 Width = 1815 End Begin OptionButton OptionMidiController BackColor = &H00C0C0C0& Caption = "SC Reverb Control" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 1 Left = 1320 TabIndex = 38 Top = 1200 Width = 1695 End Begin OptionButton OptionMidiController BackColor = &H00C0C0C0& Caption = "Pan Control" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 0 Left = 120 TabIndex = 37 Top = 1200 Value = -1 'True Width = 1215 End Begin Knob KnobPan BackColor = &H00C0C0C0& BevelWidth = 2 BorderWidth = 0 FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 900 Index = 15 Indicator = 1 'Line IndicatorColor = &H000000FF& IndicatorWidth = 0 KnobColor = &H00C0C0C0& KnobStyle = 1 'Raised Left = 9030 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 Radius = 200 TickCaptionColor= &H00000000& TickCaptions = MIDIMIXR.FRX:0504 TickColor = &H00000000& TickCount = 3 TickGap = 2 TickLength = 3 TickWidth = 1 Top = 240 Value = 64 Width = 555 End Begin Knob KnobPan BackColor = &H00C0C0C0& BevelWidth = 2 BorderWidth = 0 FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 900 Index = 14 Indicator = 1 'Line IndicatorColor = &H000000FF& IndicatorWidth = 0 KnobColor = &H00C0C0C0& KnobStyle = 1 'Raised Left = 8430 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 Radius = 200 TickCaptionColor= &H00000000& TickCaptions = MIDIMIXR.FRX:0706 TickColor = &H00000000& TickCount = 3 TickGap = 2 TickLength = 3 TickWidth = 1 Top = 240 Value = 64 Width = 555 End Begin Knob KnobPan BackColor = &H00C0C0C0& BevelWidth = 2 BorderWidth = 0 FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 900 Index = 13 Indicator = 1 'Line IndicatorColor = &H000000FF& IndicatorWidth = 0 KnobColor = &H00C0C0C0& KnobStyle = 1 'Raised Left = 7830 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 Radius = 200 TickCaptionColor= &H00000000& TickCaptions = MIDIMIXR.FRX:0908 TickColor = &H00000000& TickCount = 3 TickGap = 2 TickLength = 3 TickWidth = 1 Top = 240 Value = 64 Width = 555 End Begin Knob KnobPan BackColor = &H00C0C0C0& BevelWidth = 2 BorderWidth = 0 FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 900 Index = 12 Indicator = 1 'Line IndicatorColor = &H000000FF& IndicatorWidth = 0 KnobColor = &H00C0C0C0& KnobStyle = 1 'Raised Left = 7230 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 Radius = 200 TickCaptionColor= &H00000000& TickCaptions = MIDIMIXR.FRX:0B0A TickColor = &H00000000& TickCount = 3 TickGap = 2 TickLength = 3 TickWidth = 1 Top = 240 Value = 64 Width = 555 End Begin Knob KnobPan BackColor = &H00C0C0C0& BevelWidth = 2 BorderWidth = 0 FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 900 Index = 11 Indicator = 1 'Line IndicatorColor = &H000000FF& IndicatorWidth = 0 KnobColor = &H00C0C0C0& KnobStyle = 1 'Raised Left = 6630 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 Radius = 200 TickCaptionColor= &H00000000& TickCaptions = MIDIMIXR.FRX:0D0C TickColor = &H00000000& TickCount = 3 TickGap = 2 TickLength = 3 TickWidth = 1 Top = 240 Value = 64 Width = 555 End Begin Knob KnobPan BackColor = &H00C0C0C0& BevelWidth = 2 BorderWidth = 0 FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 900 Index = 10 Indicator = 1 'Line IndicatorColor = &H000000FF& IndicatorWidth = 0 KnobColor = &H00C0C0C0& KnobStyle = 1 'Raised Left = 6030 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 Radius = 200 TickCaptionColor= &H00000000& TickCaptions = MIDIMIXR.FRX:0F0E TickColor = &H00000000& TickCount = 3 TickGap = 2 TickLength = 3 TickWidth = 1 Top = 240 Value = 64 Width = 555 End Begin Knob KnobPan BackColor = &H00C0C0C0& BevelWidth = 2 BorderWidth = 0 FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 900 Index = 9 Indicator = 1 'Line IndicatorColor = &H000000FF& IndicatorWidth = 0 KnobColor = &H00C0C0C0& KnobStyle = 1 'Raised Left = 5430 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 Radius = 200 TickCaptionColor= &H00000000& TickCaptions = MIDIMIXR.FRX:1110 TickColor = &H00000000& TickCount = 3 TickGap = 2 TickLength = 3 TickWidth = 1 Top = 240 Value = 64 Width = 555 End Begin Knob KnobPan BackColor = &H00C0C0C0& BevelWidth = 2 BorderWidth = 0 FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 900 Index = 8 Indicator = 1 'Line IndicatorColor = &H000000FF& IndicatorWidth = 0 KnobColor = &H00C0C0C0& KnobStyle = 1 'Raised Left = 4830 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 Radius = 200 TickCaptionColor= &H00000000& TickCaptions = MIDIMIXR.FRX:1312 TickColor = &H00000000& TickCount = 3 TickGap = 2 TickLength = 3 TickWidth = 1 Top = 240 Value = 64 Width = 555 End Begin Knob KnobPan BackColor = &H00C0C0C0& BevelWidth = 2 BorderWidth = 0 FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 900 Index = 7 Indicator = 1 'Line IndicatorColor = &H000000FF& IndicatorWidth = 0 KnobColor = &H00C0C0C0& KnobStyle = 1 'Raised Left = 4230 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 Radius = 200 TickCaptionColor= &H00000000& TickCaptions = MIDIMIXR.FRX:1514 TickColor = &H00000000& TickCount = 3 TickGap = 2 TickLength = 3 TickWidth = 1 Top = 240 Value = 64 Width = 555 End Begin Knob KnobPan BackColor = &H00C0C0C0& BevelWidth = 2 BorderWidth = 0 FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 900 Index = 6 Indicator = 1 'Line IndicatorColor = &H000000FF& IndicatorWidth = 0 KnobColor = &H00C0C0C0& KnobStyle = 1 'Raised Left = 3630 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 Radius = 200 TickCaptionColor= &H00000000& TickCaptions = MIDIMIXR.FRX:1716 TickColor = &H00000000& TickCount = 3 TickGap = 2 TickLength = 3 TickWidth = 1 Top = 240 Value = 64 Width = 555 End Begin Knob KnobPan BackColor = &H00C0C0C0& BevelWidth = 2 BorderWidth = 0 FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 900 Index = 5 Indicator = 1 'Line IndicatorColor = &H000000FF& IndicatorWidth = 0 KnobColor = &H00C0C0C0& KnobStyle = 1 'Raised Left = 3030 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 Radius = 200 TickCaptionColor= &H00000000& TickCaptions = MIDIMIXR.FRX:1918 TickColor = &H00000000& TickCount = 3 TickGap = 2 TickLength = 3 TickWidth = 1 Top = 240 Value = 64 Width = 555 End Begin Knob KnobPan BackColor = &H00C0C0C0& BevelWidth = 2 BorderWidth = 0 FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 900 Index = 4 Indicator = 1 'Line IndicatorColor = &H000000FF& IndicatorWidth = 0 KnobColor = &H00C0C0C0& KnobStyle = 1 'Raised Left = 2430 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 Radius = 200 TickCaptionColor= &H00000000& TickCaptions = MIDIMIXR.FRX:1B1A TickColor = &H00000000& TickCount = 3 TickGap = 2 TickLength = 3 TickWidth = 1 Top = 240 Value = 64 Width = 555 End Begin Knob KnobPan BackColor = &H00C0C0C0& BevelWidth = 2 BorderWidth = 0 FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 900 Index = 3 Indicator = 1 'Line IndicatorColor = &H000000FF& IndicatorWidth = 0 KnobColor = &H00C0C0C0& KnobStyle = 1 'Raised Left = 1830 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 Radius = 200 TickCaptionColor= &H00000000& TickCaptions = MIDIMIXR.FRX:1D1C TickColor = &H00000000& TickCount = 3 TickGap = 2 TickLength = 3 TickWidth = 1 Top = 240 Value = 64 Width = 555 End Begin Knob KnobPan BackColor = &H00C0C0C0& BevelWidth = 2 BorderWidth = 0 FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 900 Index = 2 Indicator = 1 'Line IndicatorColor = &H000000FF& IndicatorWidth = 0 KnobColor = &H00C0C0C0& KnobStyle = 1 'Raised Left = 1230 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 Radius = 200 TickCaptionColor= &H00000000& TickCaptions = MIDIMIXR.FRX:1F1E TickColor = &H00000000& TickCount = 3 TickGap = 2 TickLength = 3 TickWidth = 1 Top = 240 Value = 64 Width = 555 End Begin Knob KnobPan BackColor = &H00C0C0C0& BevelWidth = 2 BorderWidth = 0 FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 900 Index = 1 Indicator = 1 'Line IndicatorColor = &H000000FF& IndicatorWidth = 0 KnobColor = &H00C0C0C0& KnobStyle = 1 'Raised Left = 630 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 Radius = 200 TickCaptionColor= &H00000000& TickCaptions = MIDIMIXR.FRX:2120 TickColor = &H00000000& TickCount = 3 TickGap = 2 TickLength = 3 TickWidth = 1 Top = 240 Value = 64 Width = 555 End Begin Knob KnobPan BackColor = &H00C0C0C0& BevelWidth = 2 BorderWidth = 0 FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 900 Index = 0 Indicator = 1 'Line IndicatorColor = &H000000FF& IndicatorWidth = 0 KnobColor = &H00C0C0C0& KnobStyle = 1 'Raised Left = 30 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 Radius = 200 TickCaptionColor= &H00000000& TickCaptions = MIDIMIXR.FRX:2322 TickColor = &H00000000& TickCount = 3 TickGap = 2 TickLength = 3 TickWidth = 1 Top = 240 Value = 64 Width = 555 End End Begin Frame Frame1 BackColor = &H00C0C0C0& Caption = "[MIDI In] VU Meters" ClipControls = 0 'False FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1515 Left = -15 TabIndex = 16 Top = 60 Width = 9705 Begin VIndicator VIndicator1 BackColor = &H00000000& BevelInner = 0 'None BevelOuter = 1 'Raised BevelWidth = 1 Border = 1 'Single Width BorderWidth = 1 Height = 675 Index = 15 ItemBackColor = &H00C0C0C0& ItemCount1 = 4 ItemCount2 = 2 ItemCount3 = 1 ItemForeColor1 = &H0000FF00& ItemForeColor2 = &H0000FFFF& ItemForeColor3 = &H000000FF& Left = 9150 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThreeD = -1 'True Top = 510 Value = 0 Width = 345 End Begin VIndicator VIndicator1 BackColor = &H00000000& BevelInner = 0 'None BevelOuter = 1 'Raised BevelWidth = 1 Border = 1 'Single Width BorderWidth = 1 Height = 675 Index = 14 ItemBackColor = &H00C0C0C0& ItemCount1 = 4 ItemCount2 = 2 ItemCount3 = 1 ItemForeColor1 = &H0000FF00& ItemForeColor2 = &H0000FFFF& ItemForeColor3 = &H000000FF& Left = 8550 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThreeD = -1 'True Top = 510 Value = 0 Width = 345 End Begin VIndicator VIndicator1 BackColor = &H00000000& BevelInner = 0 'None BevelOuter = 1 'Raised BevelWidth = 1 Border = 1 'Single Width BorderWidth = 1 Height = 675 Index = 13 ItemBackColor = &H00C0C0C0& ItemCount1 = 4 ItemCount2 = 2 ItemCount3 = 1 ItemForeColor1 = &H0000FF00& ItemForeColor2 = &H0000FFFF& ItemForeColor3 = &H000000FF& Left = 7950 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThreeD = -1 'True Top = 510 Value = 0 Width = 345 End Begin VIndicator VIndicator1 BackColor = &H00000000& BevelInner = 0 'None BevelOuter = 1 'Raised BevelWidth = 1 Border = 1 'Single Width BorderWidth = 1 Height = 675 Index = 12 ItemBackColor = &H00C0C0C0& ItemCount1 = 4 ItemCount2 = 2 ItemCount3 = 1 ItemForeColor1 = &H0000FF00& ItemForeColor2 = &H0000FFFF& ItemForeColor3 = &H000000FF& Left = 7350 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThreeD = -1 'True Top = 510 Value = 0 Width = 345 End Begin VIndicator VIndicator1 BackColor = &H00000000& BevelInner = 0 'None BevelOuter = 1 'Raised BevelWidth = 1 Border = 1 'Single Width BorderWidth = 1 Height = 675 Index = 11 ItemBackColor = &H00C0C0C0& ItemCount1 = 4 ItemCount2 = 2 ItemCount3 = 1 ItemForeColor1 = &H0000FF00& ItemForeColor2 = &H0000FFFF& ItemForeColor3 = &H000000FF& Left = 6750 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThreeD = -1 'True Top = 510 Value = 0 Width = 345 End Begin VIndicator VIndicator1 BackColor = &H00000000& BevelInner = 0 'None BevelOuter = 1 'Raised BevelWidth = 1 Border = 1 'Single Width BorderWidth = 1 Height = 675 Index = 10 ItemBackColor = &H00C0C0C0& ItemCount1 = 4 ItemCount2 = 2 ItemCount3 = 1 ItemForeColor1 = &H0000FF00& ItemForeColor2 = &H0000FFFF& ItemForeColor3 = &H000000FF& Left = 6150 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThreeD = -1 'True Top = 510 Value = 0 Width = 345 End Begin VIndicator VIndicator1 BackColor = &H00000000& BevelInner = 0 'None BevelOuter = 1 'Raised BevelWidth = 1 Border = 1 'Single Width BorderWidth = 1 Height = 675 Index = 9 ItemBackColor = &H00C0C0C0& ItemCount1 = 4 ItemCount2 = 2 ItemCount3 = 1 ItemForeColor1 = &H0000FF00& ItemForeColor2 = &H0000FFFF& ItemForeColor3 = &H000000FF& Left = 5550 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThreeD = -1 'True Top = 510 Value = 0 Width = 345 End Begin VIndicator VIndicator1 BackColor = &H00000000& BevelInner = 0 'None BevelOuter = 1 'Raised BevelWidth = 1 Border = 1 'Single Width BorderWidth = 1 Height = 675 Index = 8 ItemBackColor = &H00C0C0C0& ItemCount1 = 4 ItemCount2 = 2 ItemCount3 = 1 ItemForeColor1 = &H0000FF00& ItemForeColor2 = &H0000FFFF& ItemForeColor3 = &H000000FF& Left = 4950 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThreeD = -1 'True Top = 510 Value = 0 Width = 345 End Begin VIndicator VIndicator1 BackColor = &H00000000& BevelInner = 0 'None BevelOuter = 1 'Raised BevelWidth = 1 Border = 1 'Single Width BorderWidth = 1 Height = 675 Index = 7 ItemBackColor = &H00C0C0C0& ItemCount1 = 4 ItemCount2 = 2 ItemCount3 = 1 ItemForeColor1 = &H0000FF00& ItemForeColor2 = &H0000FFFF& ItemForeColor3 = &H000000FF& Left = 4350 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThreeD = -1 'True Top = 510 Value = 0 Width = 345 End Begin VIndicator VIndicator1 BackColor = &H00000000& BevelInner = 0 'None BevelOuter = 1 'Raised BevelWidth = 1 Border = 1 'Single Width BorderWidth = 1 Height = 675 Index = 6 ItemBackColor = &H00C0C0C0& ItemCount1 = 4 ItemCount2 = 2 ItemCount3 = 1 ItemForeColor1 = &H0000FF00& ItemForeColor2 = &H0000FFFF& ItemForeColor3 = &H000000FF& Left = 3750 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThreeD = -1 'True Top = 510 Value = 0 Width = 345 End Begin VIndicator VIndicator1 BackColor = &H00000000& BevelInner = 0 'None BevelOuter = 1 'Raised BevelWidth = 1 Border = 1 'Single Width BorderWidth = 1 Height = 675 Index = 5 ItemBackColor = &H00C0C0C0& ItemCount1 = 4 ItemCount2 = 2 ItemCount3 = 1 ItemForeColor1 = &H0000FF00& ItemForeColor2 = &H0000FFFF& ItemForeColor3 = &H000000FF& Left = 3150 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThreeD = -1 'True Top = 510 Value = 0 Width = 345 End Begin VIndicator VIndicator1 BackColor = &H00000000& BevelInner = 0 'None BevelOuter = 1 'Raised BevelWidth = 1 Border = 1 'Single Width BorderWidth = 1 Height = 675 Index = 4 ItemBackColor = &H00C0C0C0& ItemCount1 = 4 ItemCount2 = 2 ItemCount3 = 1 ItemForeColor1 = &H0000FF00& ItemForeColor2 = &H0000FFFF& ItemForeColor3 = &H000000FF& Left = 2550 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThreeD = -1 'True Top = 510 Value = 0 Width = 345 End Begin VIndicator VIndicator1 BackColor = &H00000000& BevelInner = 0 'None BevelOuter = 1 'Raised BevelWidth = 1 Border = 1 'Single Width BorderWidth = 1 Height = 675 Index = 3 ItemBackColor = &H00C0C0C0& ItemCount1 = 4 ItemCount2 = 2 ItemCount3 = 1 ItemForeColor1 = &H0000FF00& ItemForeColor2 = &H0000FFFF& ItemForeColor3 = &H000000FF& Left = 1950 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThreeD = -1 'True Top = 510 Value = 0 Width = 345 End Begin VIndicator VIndicator1 BackColor = &H00000000& BevelInner = 0 'None BevelOuter = 1 'Raised BevelWidth = 1 Border = 1 'Single Width BorderWidth = 1 Height = 675 Index = 2 ItemBackColor = &H00C0C0C0& ItemCount1 = 4 ItemCount2 = 2 ItemCount3 = 1 ItemForeColor1 = &H0000FF00& ItemForeColor2 = &H0000FFFF& ItemForeColor3 = &H000000FF& Left = 1350 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThreeD = -1 'True Top = 510 Value = 0 Width = 345 End Begin VIndicator VIndicator1 BackColor = &H00000000& BevelInner = 0 'None BevelOuter = 1 'Raised BevelWidth = 1 Border = 1 'Single Width BorderWidth = 1 Height = 675 Index = 1 ItemBackColor = &H00C0C0C0& ItemCount1 = 4 ItemCount2 = 2 ItemCount3 = 1 ItemForeColor1 = &H0000FF00& ItemForeColor2 = &H0000FFFF& ItemForeColor3 = &H000000FF& Left = 750 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThreeD = -1 'True Top = 510 Value = 0 Width = 345 End Begin CheckBox CheckMeter BackColor = &H00C0C0C0& Caption = "VU Meter On" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Left = 150 TabIndex = 0 Top = 1200 Value = 1 'Checked Width = 1305 End Begin VIndicator VIndicator1 BackColor = &H00000000& BevelInner = 0 'None BevelOuter = 1 'Raised BevelWidth = 1 Border = 1 'Single Width BorderWidth = 1 Height = 675 Index = 0 ItemBackColor = &H00C0C0C0& ItemCount1 = 4 ItemCount2 = 2 ItemCount3 = 1 ItemForeColor1 = &H0000FF00& ItemForeColor2 = &H0000FFFF& ItemForeColor3 = &H000000FF& Left = 150 LinkControl = "" LinkProperty = "" Max = 127 Min = 0 ThreeD = -1 'True Top = 510 Value = 0 Width = 345 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "1" FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 0 Left = 180 TabIndex = 1 Top = 270 Width = 350 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "2" FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 1 Left = 750 TabIndex = 2 Top = 270 Width = 350 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "3" FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 2 Left = 1350 TabIndex = 3 Top = 270 Width = 350 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "4" FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 3 Left = 1950 TabIndex = 4 Top = 270 Width = 350 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "5" FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 4 Left = 2550 TabIndex = 5 Top = 270 Width = 350 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "6" FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 5 Left = 3150 TabIndex = 6 Top = 270 Width = 350 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "7" FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 6 Left = 3750 TabIndex = 7 Top = 270 Width = 350 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "8" FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 7 Left = 4350 TabIndex = 8 Top = 270 Width = 350 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "9" FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 8 Left = 4950 TabIndex = 9 Top = 270 Width = 350 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "10" FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 9 Left = 5550 TabIndex = 10 Top = 270 Width = 350 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "11" FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 10 Left = 6150 TabIndex = 11 Top = 270 Width = 350 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "12" FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 11 Left = 6750 TabIndex = 12 Top = 270 Width = 350 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "13" FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 12 Left = 7350 TabIndex = 13 Top = 270 Width = 350 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "14" FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 13 Left = 7950 TabIndex = 14 Top = 270 Width = 350 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "15" FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 14 Left = 8550 TabIndex = 15 Top = 270 Width = 350 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "16" FontBold = 0 'False FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 15 Left = 9150 TabIndex = 17 Top = 270 Width = 350 End End Begin Menu mnuFile Caption = "&File" Begin Menu mnuFileExit Caption = "E&xit" End End Begin Menu mnuSettings Caption = "&Settings" Begin Menu mnuSettingsMidi Caption = "&MIDI..." End End End Option Explicit Sub CmdChannelOnOff_Click (Channel As Integer) If CmdChannelOnOff(Channel).Caption = "On" Then ' Set Volume for this channel to 0 ' Control Volume for each MIDI channel ' message, data1, data2, time MidiOutputSend (CONTROLLER_CHANGE + Channel), MAIN_VOLUME, 0, 0 CmdChannelOnOff(Channel).Caption = "Off" Else ' Reset Volume fot this channel back to VSliderVolume ' Control Volume for each MIDI channel ' message, data1, data2, time MidiOutputSend (CONTROLLER_CHANGE + Channel), MAIN_VOLUME, (VSliderVolume(Channel).Value), 0 CmdChannelOnOff(Channel).Caption = "On" End If End Sub Sub Form_Load () Dim I As Integer ' Center the form on the screen Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 FormMIDIMixr.Show MidiSetupForm.Show MODAL End Sub Sub Form_Unload (Cancel As Integer) MIDIInput1.Action = MIDIIN_STOP ' Close midiin port MIDIInput1.Action = MIDIIN_CLOSE ' Restore volume before closing If (MIDIOutput1.HasLRVolume) Then MIDIOutput1.VolumeLeft = lVolume MIDIOutput1.VolumeRight = rVolume ElseIf (MIDIOutput1.HasVolume) Then MIDIOutput1.VolumeLeft = lVolume End If ' Close MIDIOutput1.Action = MIDIOUT_CLOSE End Sub Sub Knob1_Change () If (MIDIOutput1.HMidiDevice <> 0) Then MIDIOutput1.VolumeLeft = Knob1.Value MIDIOutput1.VolumeRight = Knob1.Value End If End Sub Sub Knob1_Scroll () If (MIDIOutput1.HMidiDevice <> 0) Then MIDIOutput1.VolumeLeft = Knob1.Value MIDIOutput1.VolumeRight = Knob1.Value End If End Sub Sub KnobPan_Change (Channel As Integer) If OptionMidiController(0).Value = True Then ' Send PAN controller for each MIDI channel ' message, data1, data2, time MidiOutputSend (CONTROLLER_CHANGE + Channel), PAN, (KnobPan(Channel).Value), 0 Else If OptionMidiController(1).Value = True Then ' Send Reverb controller for each MIDI channel ' message, data1, data2, time MidiOutputSend (CONTROLLER_CHANGE + Channel), EXTERNAL_FX_DEPTH, (KnobPan(Channel).Value), 0 Else If OptionMidiController(2).Value = True Then ' Send Chorus controller for each MIDI channel ' message, data1, data2, time MidiOutputSend (CONTROLLER_CHANGE + Channel), CHORUS_DEPTH, (KnobPan(Channel).Value), 0 End If End If End If End Sub Sub KnobPan_Scroll (Channel As Integer) If OptionMidiController(0).Value = True Then ' Send PAN controller for each MIDI channel ' message, data1, data2, time MidiOutputSend (CONTROLLER_CHANGE + Channel), PAN, (KnobPan(Channel).Value), 0 Else If OptionMidiController(1).Value = True Then ' Send Reverb controller for each MIDI channel ' message, data1, data2, time MidiOutputSend (CONTROLLER_CHANGE + Channel), EXTERNAL_FX_DEPTH, (KnobPan(Channel).Value), 0 Else If OptionMidiController(2).Value = True Then ' Send Chorus controller for each MIDI channel ' message, data1, data2, time MidiOutputSend (CONTROLLER_CHANGE + Channel), CHORUS_DEPTH, (KnobPan(Channel).Value), 0 End If End If End If End Sub Sub MIDIInput1_Message () Dim InMessage As Integer Dim InData1 As Integer Dim InData2 As Integer ' 'This do while loop allows you to take all the messages that are 'waiting in the message queue. ' Do While MIDIInput1.MessageCount > 0 ' 'This is the incoming MIDI data ' InMessage = MIDIInput1.Message InData1 = MIDIInput1.Data1 InData2 = MIDIInput1.Data2 'LblMidiMessage.Caption = Str(InMessage) 'LblInQueueCount.Caption = MIDIInput1.MessageCount 'LblMidiMessage.Refresh 'LblInQueueCount.Refresh ' 'Now we are going to send the MIDI data that just came in the 'MIDI IN, right back out the MIDI OUT ' MIDIOutput1.Message = InMessage MIDIOutput1.Data1 = InData1 MIDIOutput1.Data2 = InData2 ' 'Tell MIDIOutput1 to send the MIDI data ' MIDIOutput1.Action = MIDIOUT_SEND ' 'Remove the MIDI data from the MIDI IN queue ' MIDIInput1.Action = MIDIIN_REMOVE Loop ' ' Make MIDI Note On volume from one of 16 MIDI channels light correct ' VU meter. If MIDI Note Off then 0 VU Meter. CheckMeter must be on. ' Placed outside MessageCount loop to allow for faster processing of ' queued MIDI In data. ' If InMessage >= 144 And InMessage <= 159 And CheckMeter.Value = 1 Then VIndicator1(InMessage Mod 16).Value = InData2 ElseIf InMessage >= 128 And InMessage <= 143 Then VIndicator1(InMessage Mod 16).Value = 0 End If End Sub Sub mnuFileExit_Click () End End Sub Sub mnuFileOpen_Click () End Sub Sub mnuSettingsMidi_Click () MidiSetupForm.Show MODAL End Sub Sub OptionMidiController_Click (index As Integer) If OptionMidiController(0) = True Then Frame3.Caption = "[MIDI Out] Left/Right Panning" If OptionMidiController(1) = True Then Frame3.Caption = "[MIDI Out] Roland SC Reverb" If OptionMidiController(2) = True Then Frame3.Caption = "[MIDI Out] Roland SC Chorus" End Sub Sub VSliderVolume_Change (Channel As Integer) ' Control Volume for each MIDI channel ' message, data1, data2, time MidiOutputSend (CONTROLLER_CHANGE + Channel), MAIN_VOLUME, (VSliderVolume(Channel).Value), 0 End Sub Sub VSliderVolume_Scroll (Channel As Integer) ' ' Control Volume for each MIDI channel ' MIDIOutput1.Message = CONTROLLER_CHANGE + Channel MIDIOutput1.Data1 = MAIN_VOLUME MIDIOutput1.Data2 = VSliderVolume(Channel).Value MIDIOutput1.Time = 0 ' 'Tell MIDIOutput1 to send the MIDI data ' MIDIOutput1.Action = MIDIOUT_SEND End Sub